home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / makebar.arc / SLASHBAR.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-03-23  |  18.6 KB  |  273 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE SLASHBAR.COM
  2. 110 OPEN "SLASHBAR.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I = 1 TO  253 
  6. 150    LINESUM = 0
  7. 160    FOR J = 1 TO 8
  8. 170       READ BYTE
  9. 180       CHECKSUM = CHECKSUM + BYTE
  10. 190       LINESUM = LINESUM + BYTE
  11. 200       IF (BYTE < 256) THEN LSET A$ = CHR$(BYTE)
  12. 210       PUT #1
  13. 220    NEXT J
  14. 230    READ LINECHECK
  15. 240    IF LINECHECK <> LINESUM THEN PRINT "Error in Line";280 + 10 * I
  16. 250 NEXT I
  17. 260 CLOSE
  18. 270 IF CHECKSUM = 206377 THEN PRINT "Successful Completion!" : END
  19. 280 PRINT "COM file is not valid!" : END
  20. 290 DATA    233,   116,     6,    83,   108,    97,   115,   104,   862
  21. 300 DATA     66,    97,   114,    32,    49,    46,    48,    32,   484
  22. 310 DATA     40,    99,    41,    32,    49,    57,    56,    55,   429
  23. 320 DATA     44,    32,    90,   105,   102,   102,    45,    68,   588
  24. 330 DATA     97,   118,   105,   115,    32,    80,   117,    98,   762
  25. 340 DATA    108,   105,   115,   104,   105,   110,   103,    32,   782
  26. 350 DATA     67,   111,   114,   112,    46,    13,    10,    36,   509
  27. 360 DATA     26,    82,   111,    98,   101,   114,   116,    32,   680
  28. 370 DATA     76,    46,    32,    72,   117,   109,   109,   101,   662
  29. 380 DATA    108,     0,     0,     0,     0,     0,     0,     0,   108
  30. 390 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  31. 400 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  32. 410 DATA      0,     0,   251,    80,   228,    96,    60,    53,   768
  33. 420 DATA    117,    10,   180,     2,   205,    22,    36,    15,   587
  34. 430 DATA     60,     8,   116,     6,    88,    46,   255,    46,   625
  35. 440 DATA     73,     1,   228,    97,   138,   224,    12,   128,   901
  36. 450 DATA    230,    97,   138,   196,   235,     0,   230,    97,  1223
  37. 460 DATA    250,   176,    32,   230,    32,   251,    46,   128,  1145
  38. 470 DATA     62,    89,     1,     0,   117,    50,    46,   161,   526
  39. 480 DATA    155,     3,    46,    59,     6,   157,     3,   117,   546
  40. 490 DATA     39,    46,   254,     6,    89,     1,   180,     1,   616
  41. 500 DATA    205,    22,    46,   198,     6,    89,     1,     0,   567
  42. 510 DATA    117,    22,    30,    83,    46,   197,    30,    85,   610
  43. 520 DATA      1,   128,    63,     0,   116,    12,    46,   128,   494
  44. 530 DATA     62,    90,     1,     0,   117,     4,    91,    31,   396
  45. 540 DATA     88,   207,    46,   199,     6,   183,     3,    23,   755
  46. 550 DATA      4,   180,    15,   232,   128,     0,    46,   136,   741
  47. 560 DATA     62,    91,     1,    60,     1,   116,    19,    60,   410
  48. 570 DATA      3,   116,    15,    46,   199,     6,   183,     3,   571
  49. 580 DATA      7,   112,    60,     7,   116,     4,    60,     2,   368
  50. 590 DATA    119,   212,    46,   198,     6,    89,     1,     1,   672
  51. 600 DATA     81,    82,    87,    86,     6,    85,   140,   200,   767
  52. 610 DATA    142,   216,   142,   192,   140,    22,    94,     1,   949
  53. 620 DATA    137,    38,    96,     1,   250,   142,   208,   188,  1060
  54. 630 DATA      0,     1,   251,   180,     3,   232,    62,     0,   729
  55. 640 DATA    137,    22,    92,     1,   191,   232,     8,   190,   873
  56. 650 DATA    255,   255,   232,    54,     0,   232,   135,     0,  1163
  57. 660 DATA    232,   142,     1,   190,   232,     8,   232,    42,  1079
  58. 670 DATA      0,   180,     2,   139,    22,    92,     1,   232,   668
  59. 680 DATA     28,     0,   161,    94,     1,   139,    30,    96,   549
  60. 690 DATA      1,   250,   142,   208,   139,   227,   251,   198,  1416
  61. 700 DATA      6,    89,     1,     0,    93,     7,    94,    95,   385
  62. 710 DATA     90,    89,    91,    31,    88,   207,    85,   205,   886
  63. 720 DATA     16,    93,   195,   252,   138,    62,    91,     1,   848
  64. 730 DATA    185,     4,     0,   198,     6,   182,     3,     0,   578
  65. 740 DATA    144,    81,   185,    80,     0,   198,     6,   181,   875
  66. 750 DATA      3,     0,   144,   131,   254,   255,   116,     6,   909
  67. 760 DATA    173,   232,   185,     3,   235,     9,   232,   223,  1292
  68. 770 DATA      3,   180,     8,   232,   208,   255,   171,   254,  1311
  69. 780 DATA      6,   181,     3,   226,   230,    89,   254,     6,   995
  70. 790 DATA    182,     3,   226,   213,   195,     2,     0,   181,  1002
  71. 800 DATA     83,   108,    97,   115,   104,    66,    97,   114,   784
  72. 810 DATA     32,    49,    46,    48,   198,     0,   201,   205,   779
  73. 820 DATA    187,   186,    32,   186,   200,   205,   188,   184,  1368
  74. 830 DATA      0,     6,   181,     0,   136,    46,   182,     3,   554
  75. 840 DATA    177,     0,   182,     3,   178,    79,   138,    62,   819
  76. 850 DATA    183,     3,   232,   145,   255,   138,    62,    91,  1109
  77. 860 DATA      1,   138,    38,   183,     3,   190,   166,     2,   721
  78. 870 DATA    139,   209,   185,     4,     0,    81,   198,     6,   822
  79. 880 DATA    181,     3,     0,   144,   172,   232,    85,     3,   820
  80. 890 DATA    172,   185,    78,     0,   254,     6,   181,     3,   879
  81. 900 DATA    232,    74,     3,   226,   247,   254,     6,   181,  1223
  82. 910 DATA      3,   172,   232,    64,     3,   254,     6,   182,   916
  83. 920 DATA      3,    89,   128,   249,     4,   116,     8,   128,   725
  84. 930 DATA    249,     2,   116,     3,   131,   238,     3,   226,   968
  85. 940 DATA    204,   190,   149,     2,   173,   163,   181,     3,  1065
  86. 950 DATA    138,    38,   183,     3,   232,    15,     3,   195,   807
  87. 960 DATA    128,   252,     0,   117,    13,   180,    76,    46,   812
  88. 970 DATA    198,     6,    90,     1,     0,    46,   255,    46,   642
  89. 980 DATA     81,     1,   128,   252,    12,   119,   240,    46,   879
  90. 990 DATA    198,     6,    90,     1,     1,   156,    46,   255,   753
  91. 1000 DATA    30,    81,     1,    46,   198,     6,    90,     1,   453
  92. 1010 DATA     0,   202,     2,     0,     0,    46,   128,    62,   440
  93. 1020 DATA    89,     1,     0,   117,    63,   128,   252,     2,   652
  94. 1030 DATA   115,     5,    46,   136,    38,    68,     3,   251,   662
  95. 1040 DATA    83,    46,   139,    30,   157,     3,    46,    59,   563
  96. 1050 DATA    30,   155,     3,   116,    38,   128,   252,     2,   724
  97. 1060 DATA   116,    33,   128,   252,     0,   116,    10,    60,   715
  98. 1070 DATA     1,   117,    24,    10,   192,    91,   202,     2,   639
  99. 1080 DATA     0,    46,   139,    30,   157,     3,    46,   139,   560
  100. 1090 DATA     7,    46,   131,     6,   157,     3,     2,    91,   443
  101. 1100 DATA   202,     2,     0,    91,    46,   255,    46,    77,   719
  102. 1110 DATA     1,   128,    14,     0,    16,     0,     0,     0,   159
  103. 1120 DATA     0,     0,     0,   104,    11,   104,    11,   126,   356
  104. 1130 DATA     4,   148,     4,   156,     4,   197,     4,   124,   641
  105. 1140 DATA     4,   124,     4,   124,     4,   205,     4,   124,   593
  106. 1150 DATA     4,   124,     4,     9,     5,     0,     0,     7,   153
  107. 1160 DATA   112,   252,    51,   255,   184,   104,    11,   163,  1132
  108. 1170 DATA   155,     3,   163,   157,     3,   137,   133,     0,   751
  109. 1180 DATA    14,   199,   133,    64,    14,    10,     0,   137,   571
  110. 1190 DATA    62,   149,     3,   137,    62,   151,     3,   139,   706
  111. 1200 DATA    46,   145,     3,   198,     6,   182,     3,     0,   583
  112. 1210 DATA   198,     6,   181,     3,    68,   138,    38,   183,   815
  113. 1220 DATA     3,   176,   181,   232,    71,     2,   139,   245,  1049
  114. 1230 DATA   185,    10,     0,   254,     6,   181,     3,   172,   811
  115. 1240 DATA    10,   192,   116,     5,   232,    54,     2,   226,   837
  116. 1250 DATA   242,   176,   198,   232,    47,     2,   232,    68,  1197
  117. 1260 DATA     2,   139,    62,   151,     3,   209,   231,   139,   936
  118. 1270 DATA   133,     0,    14,   163,   155,     3,   232,    46,   746
  119. 1280 DATA     1,   139,     3,   163,   153,     3,   232,    49,   743
  120. 1290 DATA     1,   232,   103,     1,   232,   135,     1,    10,   715
  121. 1300 DATA   192,   117,     5,   232,   133,     1,   235,   214,  1129
  122. 1310 DATA   232,   180,     1,   232,   188,     1,   115,     5,   954
  123. 1320 DATA   232,   224,     2,   235,   201,    60,   255,   117,  1326
  124. 1330 DATA    26,   131,    62,   151,     3,     0,   116,    12,   501
  125. 1340 DATA   255,    14,   151,     3,   199,     6,   149,     3,   780
  126. 1350 DATA     0,     0,   235,   178,   199,     6,   155,     3,   776
  127. 1360 DATA   104,    11,   195,   232,   233,     0,   161,   149,  1085
  128. 1370 DATA     3,    64,   179,     6,   246,   227,     3,   248,   976
  129. 1380 DATA   139,    51,     3,   245,   172,   138,   216,   128,  1092
  130. 1390 DATA   251,    10,   119,     8,   208,   227,    50,   255,  1128
  131. 1400 DATA   255,   167,   159,     3,   235,   214,   232,   204,  1469
  132. 1410 DATA     1,   198,     6,   182,     3,     1,   198,     6,   595
  133. 1420 DATA   181,     3,     2,   138,    38,   183,     3,   232,   780
  134. 1430 DATA   148,     1,   235,   216,   184,    13,    28,   232,  1057
  135. 1440 DATA   218,     1,   235,   208,   255,     6,   151,     3,  1077
  136. 1450 DATA   139,    62,   151,     3,   131,   255,    32,   114,   887
  137. 1460 DATA     5,   232,   111,     2,   235,   166,   209,   231,  1191
  138. 1470 DATA   161,   155,     3,   137,   133,     0,    14,   173,   776
  139. 1480 DATA   137,   133,    64,    14,   199,     6,   149,     3,   705
  140. 1490 DATA     0,     0,   233,    65,   255,   232,   200,     1,   986
  141. 1500 DATA   115,   162,   233,    57,   255,    50,   228,   172,  1272
  142. 1510 DATA    10,   192,   116,   152,    60,   254,   117,    14,   915
  143. 1520 DATA   172,    60,   254,   117,     5,   184,    10,    28,   830
  144. 1530 DATA   235,    34,   134,   224,   235,    30,   180,    28,  1100
  145. 1540 DATA    60,    13,   116,    24,   180,     1,    60,    27,   481
  146. 1550 DATA   116,    18,   180,    14,    60,     8,   116,    12,   524
  147. 1560 DATA    60,   127,   116,     8,   254,   196,    60,     9,   830
  148. 1570 DATA   116,     2,    50,   228,   232,   109,     1,   235,   973
  149. 1580 DATA   196,   139,    30,   155,     3,    59,    30,   157,   769
  150. 1590 DATA     3,   116,    51,   128,    62,    68,     3,     0,   431
  151. 1600 DATA   116,    10,   131,    46,   155,     3,     2,   131,   594
  152. 1610 DATA   235,     2,   235,     9,   139,    30,   157,     3,   810
  153. 1620 DATA   131,     6,   157,     3,     2,   139,    15,    30,   483
  154. 1630 DATA    51,   192,   142,   216,   187,    26,     4,   250,  1068
  155. 1640 DATA   199,     7,    30,     0,   199,    71,     2,    32,   540
  156. 1650 DATA     0,   137,    79,     4,   251,    31,   195,   139,   836
  157. 1660 DATA    62,   151,     3,   209,   231,   139,   189,    64,  1048
  158. 1670 DATA    14,   195,   198,     6,   182,     3,     1,   198,   797
  159. 1680 DATA     6,   181,     3,     1,    51,   210,   139,    14,   605
  160. 1690 DATA   153,     3,   232,   226,   255,   139,   115,     2,  1125
  161. 1700 DATA     3,   245,   138,    38,   183,     3,   176,    32,   818
  162. 1710 DATA   254,     6,   181,     3,   232,   190,     0,    57,   923
  163. 1720 DATA    22,   149,     3,   117,     4,   138,    38,   184,   655
  164. 1730 DATA     3,   232,   162,     0,    66,   131,   199,     6,   799
  165. 1740 DATA   226,   219,   195,   198,     6,   182,     3,     2,  1031
  166. 1750 DATA   198,     6,   181,     3,     2,   232,   175,   255,  1052
  167. 1760 DATA   161,   149,     3,   179,     6,   246,   227,     3,   974
  168. 1770 DATA   248,   139,   115,     4,     3,   245,   138,    38,   930
  169. 1780 DATA   183,     3,   232,   121,     0,   195,    50,   228,  1012
  170. 1790 DATA   205,    22,   195,   139,    30,   149,     3,   139,   882
  171. 1800 DATA    14,   153,     3,    73,   128,   252,    77,   117,   817
  172. 1810 DATA     9,    67,    59,   217,   118,    14,    51,   219,   754
  173. 1820 DATA   235,    10,   128,   252,    75,   117,    10,    75,   902
  174. 1830 DATA   121,     2,   139,   217,   137,    30,   149,     3,   798
  175. 1840 DATA   195,   128,   252,    71,   116,   232,   128,   252,  1374
  176. 1850 DATA    79,   116,   239,   232,    53,     1,   195,    60,   975
  177. 1860 DATA    97,   114,     6,    60,   122,   119,     2,    44,   564
  178. 1870 DATA    32,   195,    60,    27,   117,     4,   176,   255,   866
  179. 1880 DATA   248,   195,   139,   216,   161,   149,     3,   128,  1239
  180. 1890 DATA   251,    13,   116,   244,    51,   210,   139,    14,  1038
  181. 1900 DATA   153,     3,   232,    58,   255,   139,   115,     2,   957
  182. 1910 DATA     3,   245,   172,    58,   195,   116,     8,    66,   863
  183. 1920 DATA   131,   199,     6,   226,   240,   249,   195,   139,  1385
  184. 1930 DATA   194,   163,   149,     3,   235,   210,   172,    10,  1136
  185. 1940 DATA   192,   116,     9,   232,     7,     0,   254,     6,   816
  186. 1950 DATA   181,     3,   235,   242,   195,    80,    83,    81,  1100
  187. 1960 DATA   232,    37,     0,   185,     1,     0,   138,   220,   813
  188. 1970 DATA   180,     9,   138,    62,    91,     1,   232,    13,   726
  189. 1980 DATA   252,    89,    91,    88,   195,   184,     0,     6,   905
  190. 1990 DATA   181,     1,   182,     2,   177,     1,   178,    78,   800
  191. 2000 DATA   138,    62,   183,     3,   232,   247,   251,   195,  1311
  192. 2010 DATA    80,    83,    82,   139,    22,   181,     3,   180,   770
  193. 2020 DATA     2,   138,    62,    91,     1,   232,   230,   251,  1007
  194. 2030 DATA    90,    91,    88,   195,    83,    81,   139,    14,   781
  195. 2040 DATA   155,     3,   139,   217,   129,   233,   104,    11,   991
  196. 2050 DATA   129,   249,     0,     2,   116,     7,   137,     7,   647
  197. 2060 DATA   131,     6,   155,     3,     2,    89,    91,   195,   672
  198. 2070 DATA    80,    81,    86,   198,     6,   182,     3,     2,   638
  199. 2080 DATA   198,     6,   181,     3,     1,   232,   192,   255,  1068
  200. 2090 DATA   184,    32,    10,   138,    62,    91,     1,   185,   703
  201. 2100 DATA    78,     0,   232,   169,   251,   190,   104,    13,  1037
  202. 2110 DATA   139,   206,   129,   233,   104,    13,   232,   167,  1223
  203. 2120 DATA   255,   232,   242,   254,    10,   192,   116,   240,  1541
  204. 2130 DATA    60,    13,   116,    66,    60,    27,   116,    55,   513
  205. 2140 DATA    60,     8,   116,    24,   129,   249,   152,     0,   738
  206. 2150 DATA   119,    22,   137,     4,   131,   198,     2,   138,   751
  207. 2160 DATA    38,   183,     3,   232,    87,   255,   254,     6,  1058
  208. 2170 DATA   181,     3,   235,   204,    11,   201,   117,     5,   957
  209. 2180 DATA   232,    48,     0,   235,   195,   131,   238,     2,  1081
  210. 2190 DATA   254,    14,   181,     3,   176,    32,   138,    38,   836
  211. 2200 DATA   183,     3,   232,    56,   255,   235,   177,    11,  1152
  212. 2210 DATA   201,   117,   144,   249,   235,    17,    11,   201,  1175
  213. 2220 DATA   116,    12,   209,   233,   190,   104,    13,   252,  1129
  214. 2230 DATA   173,   232,    96,   255,   226,   250,   248,    94,  1574
  215. 2240 DATA    89,    88,   195,    80,   184,     7,    14,   232,   889
  216. 2250 DATA    52,   251,    88,   195,    47,   110,    32,    84,   859
  217. 2260 DATA   111,   111,    32,    66,   105,   103,    36,    70,   634
  218. 2270 DATA   105,   108,   101,    32,    84,   111,   111,    32,   684
  219. 2280 DATA    66,   105,   103,    36,    69,   114,   114,   111,   718
  220. 2290 DATA   114,    32,    79,   112,   101,   110,   105,   110,   763
  221. 2300 DATA   103,    32,    70,   105,   108,   101,    36,    85,   640
  222. 2310 DATA   115,    97,   103,   101,    58,    32,    83,    76,   665
  223. 2320 DATA    65,    83,    72,    66,    65,    82,    32,    91,   556
  224. 2330 DATA   112,    97,   116,   104,    93,   109,   101,   110,   842
  225. 2340 DATA   117,   110,    97,   109,   101,    46,   101,   120,   801
  226. 2350 DATA   116,    32,    91,    47,   110,    93,    36,   186,   711
  227. 2360 DATA     3,     1,   180,     9,   205,    33,   232,    67,   730
  228. 2370 DATA     1,   199,     6,     0,     1,     0,     0,   199,   406
  229. 2380 DATA     6,     2,     1,     0,     0,    51,   219,   140,   419
  230. 2390 DATA   200,    67,   142,   195,    59,   195,   116,    16,   990
  231. 2400 DATA   190,     0,     1,   139,   254,   185,    16,     0,   785
  232. 2410 DATA   243,   167,    11,   201,   117,   235,   235,    70,  1279
  233. 2420 DATA   191,   128,     0,   138,    13,    50,   237,    71,   828
  234. 2430 DATA   176,    47,   242,   174,   227,    56,   139,   247,  1308
  235. 2440 DATA    79,   198,     5,    13,   191,    10,     0,   185,   681
  236. 2450 DATA     5,     0,    51,   219,   172,    44,    48,    60,   599
  237. 2460 DATA     9,   119,     9,   147,   247,   231,    50,   255,  1067
  238. 2470 DATA     3,   216,   226,   240,   137,    30,   147,     3,  1002
  239. 2480 DATA    51,   192,    72,    43,   195,    61,   128,    14,   756
  240. 2490 DATA   119,    12,   186,    36,     7,   180,     9,   205,   754
  241. 2500 DATA    33,   184,     1,    76,   205,    33,   190,   129,   851
  242. 2510 DATA     0,   172,    60,    32,   116,   251,    60,    13,   704
  243. 2520 DATA   117,     5,   186,    79,     7,   235,   230,   139,   998
  244. 2530 DATA   214,    74,   172,    60,    32,   116,     4,    60,   732
  245. 2540 DATA    13,   117,   247,    78,   198,     4,     0,   184,   841
  246. 2550 DATA     0,    61,   205,    33,   115,     5,   186,    60,   665
  247. 2560 DATA     7,   235,   202,   139,   216,   184,     2,    66,  1051
  248. 2570 DATA    51,   201,    51,   210,   205,    33,   114,   238,  1103
  249. 2580 DATA    59,     6,   147,     3,   118,     5,   186,    47,   571
  250. 2590 DATA     7,   235,   178,    80,   184,     0,    66,    51,   801
  251. 2600 DATA   201,    51,   210,   205,    33,    89,   114,   214,  1117
  252. 2610 DATA   180,    63,   186,   128,    14,    30,     6,    31,   638
  253. 2620 DATA   205,    33,    31,   114,   201,   180,    62,   205,  1031
  254. 2630 DATA    33,   140,   201,   140,   195,    59,   203,   116,  1087
  255. 2640 DATA     5,   184,     0,    76,   205,    33,     6,   180,   689
  256. 2650 DATA    52,   205,    33,   137,    30,    85,     1,   140,   683
  257. 2660 DATA     6,    87,     1,     7,   176,     9,   191,    73,   550
  258. 2670 DATA     1,   186,    98,     1,   232,    95,     0,   176,   789
  259. 2680 DATA    22,   191,    77,     1,   186,    69,     3,   232,   781
  260. 2690 DATA    84,     0,   176,    33,   191,    81,     1,   186,   752
  261. 2700 DATA    24,     3,   232,    73,     0,   161,    44,     0,   537
  262. 2710 DATA   142,   192,   180,    73,   205,    33,   186,   143,  1154
  263. 2720 DATA    14,     3,    22,   147,     3,   177,     4,   211,   581
  264. 2730 DATA   234,   184,     0,    49,   205,    33,    83,   108,   896
  265. 2740 DATA    97,   115,   104,    66,    97,   114,    58,    32,   683
  266. 2750 DATA    82,   101,   113,   117,   105,   114,   101,   115,   848
  267. 2760 DATA    32,    68,    79,    83,    32,    50,    46,    48,   438
  268. 2770 DATA    43,    13,    10,    36,   180,    48,   205,    33,   568
  269. 2780 DATA    60,     2,   115,     9,   186,   166,     8,   180,   726
  270. 2790 DATA     9,   205,    33,   205,    32,   195,     6,    80,   765
  271. 2800 DATA   180,    53,   205,    33,   137,    29,   140,    69,   846
  272. 2810 DATA     2,    88,   180,    37,   205,    33,     7,   195,   747
  273.